home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / arexx / ole1v10a.lha / OLE_System / modules / fw_st / Align_Objects.fw next >
Encoding:
Text File  |  1995-02-10  |  542 b   |  31 lines
  1. /*
  2.  * Align_Objects.fw
  3.  *
  4.  * USAGE: Align_Objects.fw
  5.  *
  6.  * Add a very usefull function.
  7.  *
  8.  * HISTORY:
  9.  * v1.01    aligned with the new server design v1.10
  10.  *
  11.  * $(C): (1994, Rocco Coluccelli, Bologna)
  12.  * $VER: Align_Objects.fw 1.01 (30.Nov.1994)
  13.  */
  14.  
  15. oleport        = 'OLE_SERVER'
  16. olerexx        = 'OLE.rexx'
  17.  
  18. userport    = ADDRESS()
  19. userscreen    = 'Workbench'
  20. module1        = 'AlignObjects.fw'
  21.  
  22. IF ~SHOW('P',oleport) THEN DO
  23.     ADDRESS COMMAND
  24.     "Run >NIL: Rx" olerexx
  25.     "WaitForPort" oleport
  26.     END
  27.  
  28. CALL SendParsed(oleport,'NEWJOB',userport,userscreen,module1)
  29.  
  30. EXIT 0
  31.